home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Schedule.dmd < prev    next >
Text File  |  1997-11-20  |  2KB  |  59 lines
  1. ** END HEADER -- do not remove this line
  2. //
  3. // Generated on 10/13/97
  4. //
  5. class ScheduleDataModule of FLEETCDATAMODULE from "fleet.cdm"
  6.    this.SCHEDULE1 = new QUERY()
  7.    this.SCHEDULE1.parent = this
  8.    with (this.SCHEDULE1)
  9.       left = 4
  10.       top = 2
  11.       database = form.dbfleet
  12.       sql = 'SELECT * FROM "SCHEDULE.DBF" schedule ORDER BY schedule."Flight ID"'
  13.       active = true
  14.    endwith
  15.  
  16.    with (this.SCHEDULE1.rowset)
  17.       indexName = "Flight ID"
  18.    endwith
  19.  
  20.  
  21.    this.AIRCRAFT1 = new QUERY()
  22.    this.AIRCRAFT1.parent = this
  23.    with (this.AIRCRAFT1)
  24.       left = 8
  25.       top = 2
  26.       database = form.dbfleet
  27.       sql = 'SELECT * FROM "AIRCRAFT.DBF"'
  28.       active = true
  29.    endwith
  30.  
  31.  
  32.    with (this.AIRCRAFT1.rowset)
  33.       indexName = "Aircraft ID"
  34.       masterRowset = parent.parent.schedule1.rowset
  35.       masterFields = "Aircraft ID"
  36.    endwith
  37.  
  38.  
  39.    this.FLIGHT1 = new QUERY()
  40.    this.FLIGHT1.parent = this
  41.    with (this.FLIGHT1)
  42.       left = 12
  43.       top = 2
  44.       database = form.dbfleet
  45.       sql = 'SELECT * FROM "FLIGHT.DBF"'
  46.       active = true
  47.    endwith
  48.  
  49.  
  50.    with (this.FLIGHT1.rowset)
  51.       fields["From ID"].lookupSQL = 'SELECT airport."Airport ID", airport FROM "airport.dbf" airport'
  52.       fields["To ID"].lookupSQL   = 'SELECT airport."Airport ID", airport FROM "airport.dbf" airport'
  53.       autoEdit = false
  54.       indexName = "Flight ID"
  55.       masterRowset = parent.parent.schedule1.rowset
  56.       masterFields = "Flight ID"
  57.    endwith
  58. endclass
  59.